home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / save_load demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  896b  |  42 lines
  1. 10 rem demoprogramm zu save/load dim
  2. 20 rem nikolaus heusler, 010790
  3. 30 :
  4. 40 ifa=0thena=1:load"save/load dim",8,8
  5. 50 poke0,111:poke56,159:clr
  6. 60 sys65409:print"einfaches telefonbuch
  7. 70 [153]" 1 - neu anlegen
  8. 80 print" 2 - ausgabe
  9. 85 [134]n$(10),n(10)
  10. 90 [153]"bitte waehlen!
  11. 100 geta$:ifa$="1"then200
  12. 102 ifa$="2"then300
  13. 104 goto100
  14. 200 print"[147]neu anlegen
  15. 202 [153]"bitte geben sie von zehn personen den
  16. 204 print"vornamen und eine telefonnummer, die
  17. 206 [153]"nur aus ziffern bestehen darf, ein!
  18. 210 fori=1to10
  19. 212 print"eintrag #"i
  20. 214 input"name   ";n$(i)
  21. 216 input"nummer ";n(i)
  22. 218 next
  23. 220 print"daten werden gespeichert!
  24. 222 [159]1,8,15,"s:telefonbuch":[160]1
  25. 224 [159]2,8,2,"telefonbuch,s,w
  26. 226 sys40704(n$(1),10)
  27. 228 sys40704(n(1),10)
  28. 230 close2:run60
  29. 300 print"[147]telefonbuch wird geladen!
  30. 302 [159]2,8,2,"telefonbuch,s,r
  31. 304 sys40818(n$(1),10)
  32. 306 sys40818(n(1),10)
  33. 308 close2
  34. 310 fori=1to10
  35. 312 print"eintrag #"i
  36. 314 print"name   "n$(i)
  37. 316 print"nummer"n(i)
  38. 318 print" - taste -[145][145]
  39. 320 [146]198,1:[151]198,0
  40. 324 [130]
  41. 326 [138]60
  42.